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@ Examples: 


s Format 1 


Assuming the end of area or set has been reached, all data manipulations have been 
performed, and you are ready to end the job, the CLOSE statement number 024200 
closes all areas. 


1 8 12 
02426098 CLOSE ALL. 
924308 CLOSE AREA CUSTOMER-AREA, ORDER-AREA, PRODUCT -AREA. 


s Format 2 


Statement number 024300 closes only those areas you specify (up to 37 areas). 


3.5.3. DELETE Statement 
Function: 
The DELETE statement: 


Se = makes the object record occurrence unavailable for further processing (the object 
record is the record being acted upon by the DELETE verb); 


= removes the object record from all set occurrences of the particular subschema 
in which it participates as a member; 


= deletes all record occurrences that are mandatory members of set occurrences 
owned by the object record; 


= removes or optionally deletes all record occurrences that are optional members 
of set occurrences owned by the object record; and 


= optionally prevents deletion of the object record if the data base contains any 
nonempty set occurrences of which the object record is the owner. 


Format: 






aa Se | ALL 
ONLY 
SELECTIVE 


identifier-1 


Rules: 


© 1. When you use record-name, it must refer to a record that was included in the invoked 
subschema. When you use identifier-1, it must have already been established as a 
generalized name entry with a USAGE IS RECORD-NAME clause, and initialized with 
the name of a record included in the subschema invoked by the program. 
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The DMLP assumes the word DELETE to be a DML verb when: 





a. the program is preprocessed for American National Standard 68 level COBOL; or 
b. ALL, ONLY, or SELECTIVE appears correctly in the DELETE statement; or 


c. identifier-1 is a valid generalized name, or record-name is found in the 
subschema. 


When none of these conditions are true, the DMLP assumes that DELETE is a COBOL 
statement and no translation is done. 


NOTE: 


A misspelled generalized name or subschema record name isn't detected until 
compilation by the COBOL compiler. 


2. The object record occurrence of the DELETE statement must be the current record of 
the run unit. If the current record of run unit is not an occurrence of record-name, an 
error condition exists. 


3. The area from which the record is deleted, as well as any areas indirectly updated by 
the deletion, must be open for an update usage mode before the DELETE statement 
can be executed. 


4. The object record is removed from all set occurrences of the particular subschema in 
which it participates as a member, and it is then deleted, that is, made unavailable for 
further processing by any DML statement. The space and the data base key used by 
the object record are made available for reuse. 





NOTE: 


A distinction is made between a removed record occurrence and a deleted record 
occurrence. Deletion is a 2-step process that first cancels (removes) the existing 
membership of the object record in specific set occurrences and then releases the 
space occupied by the object record for reuse. The space formerly used by the 
record occurrence and its assigned data base key may be used subsequently to 
store a different record type. 


5. In some cases, a deleted record occurrence is only partially deleted, or 
deferred-deleted, from the data base. If the occurrence does not have prior pointers 
in all sets in which it participates, efficient delinking and removal are not always 
possible. In this case, the data portion of the occurrence is deleted, but the set 
pointers and line-entry associated with the occurrence are maintained until all 
information is available for an efficient deletion. The maintained line-entry is marked 
(with X‘80°' in the most significant bit field) to indicate a deferred-deleted 
occurrence. 


A deferred-deleted occurrence can eventually be delinked from a set if a trace 
through the set is made in update mode. This may occur on a retrieval operation 
(FIND/FETCH) if a deferred-deleted occurrence is found in an area opened for 
update. If the occurrence can be efficiently delinked from all sets, the final delete is 
performed. 
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10. 


11. 








The unqualified form of the DELETE statement 


a ed : 
identifier-1l 


deletes the object record only if it has no member records. If the object record is the 
owner of a nonempty set occurrence, the DELETE statement is not successfully ex- 
ecuted and an error condition exists. An error condition can be avoided by use of for- 
mat 1 of the IF statement (3.5.8) before execution of the unqualified DELETE state- 
ment. 


The DELETE ONLY form of the statement deletes the object record and all of its man- 
datory members. It removes, but does not delete, its optional members. 


If any of the deleted mandatory members are themselves the owners of any set oc- 
currences, then the DELETE statement is executed on such records as if they were 
the object record of a DELETE ONLY statement. Thus, all mandatory members of such 
sets are also deleted, and in turn this process continues down the structure until a 
record occurrence participates only as an optional member in a set. 


The DELETE SELECTIVE form of the statement has the same results as the DELETE 
ONLY statement, with the following exceptions: 


= optional members are deleted only if they do not currently participate as 
members in other set occurrences; and 


= all deleted records that are the owners of any set occurrences are treated as if 
they were the record-name of a DELETE SELECTIVE statement. 


The DELETE ALL form of the statement deletes the object record and all its member 
records, both mandatory and optional. As with the DELETE ONLY form of the state- 
ment, the delete process continues down the hierarchy, with the difference that all 
deleted records that are the owners of any set occurrences are treated as if they were 
the object record of a DELETE ALL statement. 


Following successful execution of a DELETE statement, the current record of the run 
unit becomes null. A null value is indicated by a minus 1 in the DBKEY system status 
location. All other currency information remains unchanged. Retrieving deleted 
records by using FIND format 2 results in a value of 0317 being placed in ERROR- 
STATUS. Retrieving deleted records by using other formats results in a value of 0326 
being placed in ERROR-STATUS. 


The DELETE statement is not executed for any record that is: 


= an owner or member of any set that has not been specified as part of the sub- 
schema; 


= amember of a set that has one or more members not specified as part of the 
subschema; 
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12; 


= = ~=an owner of a set that has one or more members not specified as part of the sub- 
schema; or 


= an owner of a set whose members cannot be deleted. 

NOTE: 

The third and fourth restrictions don’t apply to unqualified DELETE statements. 
When an error occurs, the ERROR-STATUS location contains a nonzero value, which 


is explained in Appendix C. In addition, the data base and working storage remain in 
the state existing prior to the attempted execution of the DELETE statement. 


Example 1: 


This example uses the SPSUBS subschema in Figure 4-1. Assume that an occurrence 
of a CUST-ORDER record is current of run unit. 


1 8 12 
682629 DELETE CUST-ORDER ALL. 


Remember that the DELETE ALL form of the statement deletes the object record and 
all its member records, mandatory and optional. Consequently, executing statement 
number 602020: 


. Deletes all occurrences of the ORD-REMARK record in the current SPEC- 
REMARK set occurrence. 


a Removes each ORDER-ITEM record occurrence from the related PROD-ORD set 
occurrence. 


2 Deletes all ORDER-ITEM record occurrences in the current ITEM set occurrence. 
. Removes the CUST-ORDER record from the ORDOR set. 


a Deletes the CUST-ORDER record. 


Example 2: 


Referring to the data structure in Figure 4-3, assume that an occurrence of an 
MFG-LOT record is current of run unit. 


689126 DELETE MFG-LOT ONLY. 


Remember that the DELETE ONLY form of the statement deletes the object record 
and all its mandatory members. It removes, but does not delete, its optional 
members. Consequently, executing statement number 609120: 


= Removes every occurrence of the LOT-INV record that participates in the current 
LOT-OH set occurrence from the LOT-OH set. 














* « 
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@ a Removes the MFG-LOT record from the current occurrence of the MFG-LOT-DET 
set (provided the current MFG-LOT is a member in that set). 


7 Deletes the MFG-LOT record. 


The effect of these operations is to delete the owner of the LOT-OH set (MFG-LOT 
record) without also deleting the LOT-INV member records. 











* 
. 
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ct) Table C—5. Rollback Error Codes (Part 1 of 3) 


Rollback Code 
(first or last 
two bytes of 

RB-ERROR-CODE)* 


Explanation 


DMS internal error 

Data base write error 

Data base read error 

Program check or unrecoverable error (in DBMS) 
{/O error in concurrent run unit 

Run unit cancelled (while in DBMS) 

Journal file write error 

Program termination before depart 


Invalid object subschema 


Main storage not available 


Space inventory write error 
@ Space inventory read error 
Invalid verb number 
Area unavailable for update 
Record update conflict 
Not used 
Not used 
Resource wait time exceeded 
Deadlock avoidance 
Delete hierarchy error 
QBL file allocation error 
Maximum updating run units exceeded for DMCL 
Rollback failure - QBL file was shut down. 
QBL file read error 
QBL record error 
Not used 
Not used 


& Not used 


Requested OBL write rejected; IMS OBL file shut down —_ 
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Table C—5. Rollback Error Codes (Part 2 of 3) 


Explanation 


Requested DMCL not loaded 

Requested subschema not found 
Insufficient main storage to load subschema 
Invalid subschema 

Invalid DBA name for DMCL 

Invalid DBA name for subschema 

Invalid schema name for DMCL 

Invalid schema name for subschema 
Different DMCL not allowed on BIND 
Subschema compilation date/time mismatch 


IMS terminal limit exceeded 


Not used 
Not used 
Data base is shut down. 
Not used 
Area is shut down. 
Possible causes are: 
DBA shut down an area; or 


data base file had read/write or open/close error. 


Application is shut down. 


Journal file is shut down. 

Journal file had open/close or read/write error under another task. 
File access time-out 

Not used 

Not used 

New impart is inhibited for DBMS. 

New impart is inhibited within a DBA system. 


New impart is inhibited for a data base. 
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& Table C—5. Rollback Error Codes (Part 3 of 3) 


Rollback Code 
(first or last 
two bytes of 

RB-ERROR-CODE)* 


Explanation 


Not used 

New OPEN is inhibited for an area. 

Maximum run units exceeded for DBMS 

Maximum run units exceeded for DMCL 

IMS access inhibited to DMCL for this session 

IMS access inhibited to DBMS for this session 

IMS OBL file write rejected 

IMS QBL file space exhausted 

Unidentified DMS error ral 
DMS SVC processing error 


First DBMS call not imparted 





@ * RB-ERROR-CODE is a 4-byte field. The last two bytes indicate the cause of the error. The first two 
bytes give the status of the rollback. If the rollback is successful, the first two bytes contain zeros. If 
the rollback is unsuccessful, the first two bytes indicate the cause of the rollback. 
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Appendix D. DML Preprocessor 
Messages 





D.1. INFORMATIONAL MESSAGES 


The messages in Table D-1 are displayed either during a DML preprocessor run or after 
a run is completed successfully or terminated abnormally. 


Table D—1. DML Preprocessor Informational Messages 


**DML ERROR(S) DETECTED DURING Invalid OML = statements have been detected during DML 
PREPROCESSING** processing. Any attempt at a COBOL compilation would be 
nniNVALID DML STATEMENTS meaningless. 


DETECTED 
nn WARNING MESSAGES ISSUED 


**DML PREPROCESSING INITIATED** DML processing has started. 


**DML PREPROCESSING COMPLETED DML processing has been completed successfully. 
WITHOUT ERRORS** 


**END OF FILE REACHED IN DMLP has encountered an end-of-file while reading the input file, 
DATA DIVISION** and neither a procedure division nor a definition division (IMS 
only) header has been encountered. 


**INVALID ID DIVISION OR Identification division statement missing or syntactically incorrect. 
COBRUN STATEMENT** DML processing terminates. 


**QUOTE=DOUBLE IS APPLIED TO BOUND Nonnumeric literals generated by the DML preprocessor are 
NUMERIC LITERALS** bound by double quotes. Users may specify this explicitly by using 
the QUOTES ARE DOUBLE option of the DUPL syntax. QUOTES 

ARE DOUBLE is the default option. 


**QUOTE=SINGLE IS APPLIED TO BOUND Nonnumeric literals generated by the DML preprocessor are 
NUMERIC LITERALS** bound by single quotes. Users must specify this explicitly by using 
the QUOTES ARE SINGLE option of the DUPL syntax. 


**SCHEMA/INVOKE STATEMENT MISSING Schema section or INVOKE statement is syntactically invalid. DML 
OR INVALID** processing is aborted. 
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D.2. DIAGNOSTIC MESSAGES 


The messages in Table D-2 appear in the DML preprocessor output listing. The 
diagnostic severity codes are: 


W (Warning) 
The specified DML statement must be reexamined; however, the COBOL CALL 
statement is generated appropriately. 


NOTE: 


The UPS! byte is set to X ‘20’. 


E (Severe) 
The specified DML statement is invalid either syntactically or semantically. The 
COBOL CALL statement is not generated, but the specified DML statement is 
converted to a COBOL comment statement. 


NOTE: 


The UPS! byte is set to X “40’. 


F (Fatal) 
A fatal error has occurred; a dump is given. This type of error should be reported 
to the data base administrator. 


NOTE: 


The UPS! byte is set to X ‘80’. 


Table D—2. DML Preprocessor Diagnostic Messages (Part 1 of 6) 


AREA-NAME area-name The specified area-name is not]! Check the source documentation 
NOT DEFINED IN sub- included in the invoked subschema. | of the subschema. 
schema-name SUB-SCHEMA 


COPYING LINKAGE AND The tinkage section header is} Correct and rerun. 
NO LINKAGE HEADER required if linkage or linkage com- 

mon is specified in the INVOKE 

statement. 


DATA DIVISION HEADER The source program does not con- | Correct and rerun. 
MISSING tain a data division. 

WwW DEFAULT DMCL CONTAINS The default DMCL in the data] Check with the data base 
ERRORS dictionary contains errors. administrator. 


DEPART STATEMENT NOT DMLP has not found a DEPART Check the DML/COBOL program. 
PRESENT IN THE PROGRAM statement. This is acceptable 


only for a subprogram. 

















© 
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Severity 
Code 
F 


Table D—2. DML Preprocessor Diagnostic Messages (Part 2 of 6) 


DML STATEMENT SIZE 
INVALID 


FREE WITH CHECKPOINT 
ASSUMED 


FILE DEFINITION MISSING 
FOR SUB-SCHEMA INVOKED. 
DML PRE-PROCESSOR 
CANNOT CONTINUE. 


IDENTIFIER NAME IS 
NOT UNIQUE 


IDENTIFIER NAME IS 
GREATER THAN 16 
CHARACTERS 


IMPART OR BIND 
STATEMENT NOT FOUND 
IN PROGRAM 


INVALID BIND STATEMENT 


E INVALID CLOSE STATEMENT 
E INVALID DELETE STATEMENT 


INVALID DEPART STATEMENT 


INVALID DML SYNTAX 


INVALID DML SYNTAX. 
DUPLICATES NOT 
ALLOWED FOR record-name 
RECORD 


INVALID DML SYNTAX. 
RECORD NAME record-name 
IS NOT MEMBER OF CALC 
SET 


INVALID DML SYNTAX 
SET NAME set-name IS 
NOT LAST PROCESSABLE 


The DML statement contains too 
many operands or is missing its 
terminating period. 


Three formats of the FREE verb 


exist. FREE WITH CHECKPOINT 
is the default. 


01-level record descriptions of the 
subschema invoked could not be 
found in the data base. 


The data item name has already 
been used for a previous DML 
identifier statement. 


The data item name is too long. 


DMLP has not found an IMPART 
or BIND statement. This is 
acceptable only for a sub- 
program. 


DML statement is 
incorrect. 


syntactically 


The DML statement is syntactically 
invalid. 


For the DML format, FIND NEXT 
DUPLICATE record-name RECORD. 
The record name is not allowed to 
have the same contents of the 
CALC key data item as the record 
type previously stored in the data 
base. 


This is pertinent to the follow- 

ing DML statements: 

1. FIND record-name RECORD. 

2. FIND NEXT DUPLICATE record- 
name RECORD. 


The location mode of the record- 
name is not CALC mode. 


The set specified in FIND LAST 
[record-name] RECORD OF set- 
name SET does not have a prior 
pointer. 


Check for valid format and rerun. 


Check statement syntax format. 


Check with 
administrator. 


the data base 


Make 
rerun. 


the name unique and 


Shorten the name to 16 or 
fewer characters and rerun. 


Check the DML/COBOL program. 


Check 
format. 


the statement syntax 


Check for 
resubmit. 


valid format and 


Check the source documentation 
of the schema invoked. 


Check the source documentation 
of the schema invoked to deter- 
mine the location mode. 


Check the source documentation 
of the schema invoked to deter- 
mine what pointers are in the 
specified set. 
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Table D—2. DML Preprocessor Diagnostic Messages (Part 3 of 6) 


Severity : 


INVALID DML SYNTAX This is pertinent to the fol- 
SET NAME set-name IS lowing DML statements: 
NOT PRIOR PROCESSABLE 1. FIND PRIOR record-name 
RECORD OF set-name SET. 
2. FIND PRIOR RECORD OF set- 


name SET. 


The specified set does not have 
a prior pointer. 


INVALID DMS-STATUS 
SOURCE FILE 


INVALID FIND/FETCH 


STATEMENT 


pe INVALID FREE STATEMENT 
Ss INVALID GET STATEMENT 


INVALID IDENTIFIER Possible causes are: 
STATEMENT SYNTAX 1. Additional words appeared in 
the statement. 

2. An invalid level 
assigned or an 
gin for the 
was detected. 


DML statement is 
incorrect. 


syntactically 


number was 
invalid = mar- 
level number 


DML statement is 
incorrect. 


syntactically 


INVALID IF STATEMENT 


INVALID QUALIFICATION 
OF IDENTIFIER 
identifier-name 


A DML identifier is the object of 
data name qualification. 


INVALID SUB-SCHEMA 
COPY KEY 


The DUPL input did not contain 
the proper authorization key for 
the defined subschema. 

INVALID UNBIND STATEMENT DML statement is syntactically 
incorrect. 








Check the source documentation 
of the schema _ invoked to 
determine what pointers are in 
the specified set. 


The file containing DMS-STATUS | Check file. Check with the data 
source could not be read. base administrator. 


Check the 
format. 


statement syntax 


Verify that a _ period ter- 
minates the statement. 
Ensure that the level num- 


ber field is valid. 


Check 
format. 


the statement syntax 


Remove the applicable qualifiers 
or correct the discrepant 
identifier-name. 


Check with 
administrator. 


the data base 


Check the statement syntax 
format. 
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Table D—2. DML Preprocessor Diagnostic Messages (Part 4 of 6) 


INVOKE/SCHEMA SECTION Schema section or INVOKE state- | Check the COBOL/DML program. 
MISSING OR SYNTACTICALLY ment is missing or syntactically 
INVALID invalid. DML processing stops at 

this point. 


INVOKED DMCL dmcl-name The DMCL in the data dictionary |Check with the data base 
CONTAINS ERRORS. contains errors. administrator. 


KEYWORD ‘RECORD’ The work ‘RECORD’ is part of the |Check the statement syntax 
MISSING syntax from a_ previous DMS | format. 
release. 


LEVEL NUMBER GREATER Level numbers greater than 49 are | Correct and rerun. 
THAN 49 not allowed if working-common 

or linkage-common is specified in 

the INVOKE statement. 


MAXIMUM NUMBER OF Only 100 identifier names may | Correct and rerun. 
IDENTIFIER NAMES be defined within any given DML 
EXCEEDED program. 


NO DEFAULT DMCL There is no default DMCL defined | If the correct DMCL name is not 

MODULE HAS BEEN for the schema. Implicit initializa- | known to the user, check with 

SPECIFIED tion of DMCL-NAME location in |the data base administrator. 
DMCA by DMLP cannot be done. 


NO DMCL MODULE HAS DMLP cannot find any DMCL defined | Check with the data base 
BEEN DEFINED FOR for the schema within the data | administrator. 
THIS DATA BASE dictionary. DMLP cannot do implicit 

initialization of DMCL-NAME location 

in DMCA. 


NO DMS-STATUS COBOL images of the DMS-jCheck with the data base 
SECTION COPIED STATUS section could not be | administrator. 

copied because the file assigned 

was empty, or the rollback section/ 

paragraph was not placed last. 


DMLP could not find a schema |Check with the data base 
cross-reference record. administrator. 


NO SUBSCHEMA CROSS- DMLP could not find a subschema |Check with the data base 
REFERENCE RECORD cross-reference record. administrator. 


OLD FORMAT OF INVOKE Conversion code has been included |1. Review the OPEN ALL/ 
STATEMENT DETECTED to upgrade this program from CLOSE ALL statement ex- 
single-thread operation. pansions to determine ade- 
quacy of the conversion aids; 
or 

Upgrade the INVOKE state- 
ment to the current format 

and rerun. 


The program ID statement is re- | Correct and rerun. 
quired. 
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Table D—2. DML Preprocessor Diagnostic Messages (Part 5 of 6) 


Severity Message Text Explanation Recovery Action 
Code 
QUOTE=SINGLE/DOUBLE The user now uses the DUPL syn- |} Correct when convenient. 
NO LONGER SUPPORTED tax to indicate choice of quotes. 


QUOTE PARAM DOES NOT The DUPL command overrides the Correct if necessary when 
MATCH DUPL COMMAND no-longer supported QUOTE para-| convenient. 
~ meter. 






























The 
not 


RECORD-NAME record-name 
IS NOT A MEMBER OF 
area-name AREA 









specified record-name_ is} Check the source documentation 
included in the named area.| of the subschema. 



















RECORD-NAME record-name 
tS NOT A MEMBER OF 
set-name SET 


Check the source documentation 
of the subschema. 


The specified record-name is not 
included in the named set. 
















RECORD-NAME record-name 
NOT DEFINED IN subschema- 
name SUB-SCHEMA 


The specified record-name. is not 
included in the invoked subschema. 


Check the source documentation 
of the subschema. 













RECORD/SET/DB-IDENTIFIER 
ASSUMED CONSISTENT 


DMLP cannot validate that the| Refer to rule 27 of the FIND/ 
specified data-base-identifier is| FETCH statement (format 6) 
correct with respect to the target for a description of this pre- 
record and set (i.e., because the | cautionary warning (3.5.5). 

record and/or set names are 
unknown). 



















ROLLBACK PARAGRAPH 
MISSING FROM INVOKE 
STANDARD ONE ASSUMED 


The user did not include ROLLBACK 
clause in the INVOKE. 























SCHEMA NAME schema-name 
HAS NOT BEEN DEFINED VIA 
DDL PROCESSOR. THE DML 
PRE-PROCESSOR CANNOT 
CONTINUE 


The schema has not been com- 
piled; the data _ dictionary 
is in an_ initialized state. 
2. The spelling of the schema- 
name is incorrect. 


The DBA must recompile 
the schema and_= sub- 
schema. 

2. Check with the DBA _ for 
correct spelling. 



























SECTION HEADER INVALID 
FOR PROGRAM TYPE 


A section header has been en- | Correct and rerun. 
countered that conflicts with 


program type given in DUPL syntax. 

















SET-NAME set-name NOT 
DEFINED AS SORTED SET 


Check with the data base 
administrator. 


Set named in format 6 of 
FIND/FETCH statement 
iS not sorted. 





















SET-NAME set-name NOT 
DEFINED IN subschema-name 
SUB-SCHEMA 


Check the source documentation 
of the subschema. 


The specified set-name is not 
included in the invoked sub- 
schema. 




















SRNAME, RECORD-NAME 
EQUIVALENCE MISSING. 
DML PRE-PROCESSOR 
CANNOT CONTINUE 


Ol-level record of record names,| Check with the data base 
set names, or area names of the | administrator. 
invoked subschema could not be 
found in the data base. 
















SUB-SCHEMA NAME subschema- 
name HAS NOT BEEN DEFINED 
VIA SUBSCHEMA PROCESSOR. 
THE DML PRE-PROCESSOR 
CANNOT CONTINUE 


The subschema invoked has not| Check with 
been compiled, or the spelling of the | administrator. 
subschema name is incorrect. 


the data base 
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Table D—2. DML Preprocessor Diagnostic Messages (Part 6 of 6) 


THE DATA-BASE-IDENTIFIER IS 
NOT ASCENDING OR 
DESCENDING KEY OF THE 
set-name SET 


THE INVOKED DMCL 
dmci-name HAS NOT 
BEEN DEFINED VIA 
THE DMCL PROCESSOR 


THE INVOKED SCHEMA 
schema-name CONTAINS 
ERRORS. The DML PRE- 
PROCESSING CANNOT 
CONTINUE 


THE INVOKED SUB- 
SCHEMA subschema-name 
CONTAINS ERRORS. THE 
DML PRE-PROCESSING 
CANNOT CONTINUE 


THE QUALIFIER record-name 
IS INVALID 


THE USAGE OF IDENTIFIER 
identifier-name IS NOT 
CONSISTENT WITH ITS 
DEFINITION. 


TOO MANY COMMENTS. 
ONLY 50 IN A ROW 
ARE ALLOWED 


WARNING DML SYNTAX 


WARNING DML SYNTAX. 
SET NAME set-name IS NOT 
OWNER PROCESSABLE 


WORKING STORAGE SECTION 
HEADER MISSING 


A field that is not the key of a sorted 
set is being used as such, or the 
field is not within the specified 
record. 


The DMCL has not been placed in 
the data dictionary by the DMCLP, or 
the spelling of dmci-name_ is 
incorrect. 


The schema in the data dictionary 
is invalid. 


The subschema in the data diction- 
ary contains errors. 


The record name used to qualify 
the data item does not match the 
first record name in the statement. 


The intended usage of the specified 
identifier does not agree with its 
defined usage within the data divi- 
sion of the program. 


A DML statement may not span 
more than 50 consecutive state- 
ments. This includes embedded 
comments and blank statements. 


The DML statement is not correct 
but can be interpreted correctly. 


The set specified in FIND OWNER 
RECORD OF set-name SET does not 
have an owner pointer. 


The working storage section 
header is required. 





Recovery Action 


Check the source documentation 
of the schema invoked. 


Check with 
administrator. 


Check with 
administrator. 


Check with 
administrator. 


Change the wrong record name 
to match the valid record name. 


Correct the identifier-name being 
referenced to match its intended 
usage; or, correct the USAGE 
clause in the definition so it sup- 
ports the type of reference. 


Correct the DML statement in 
error and rerun. 


Check for valid format. 


The DML preprocessor generates 
the proper DML CALL statement. 
This message is a warning 
that this type DML accessing 
would be poorly performed. 


Correct and rerun. 
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